Writes out file, if need be, in a compressed format."])
(fset 'crypt-region #[(start end encrypt key) "`┴Äd├╟ë╚╔\n½ä¬é═Q&+ç" [saved-point ((goto-char saved-point)) opoint-max call-process-region start end shell-file-name t nil "-c" encrypt encryption-program decryption-program " " key] 11 "\
Encrypt/decrypt the text in the region.
From a program, this function takes four args: START, END, ENCRYPT and KEY.
When called interactively START and END default to point and mark
(START being the lesser of the two), KEY is prompted for." (byte-code "└ ê┴ ┬ ├─!┼╞!Fç" [barf-if-buffer-read-only region-beginning region-end y-or-n-p "Encrypt? " read-string-no-echo "Crypt region using key: "] 5)])
Prefix arg (or second arg non-nil from a program) UNDO means gunzip." (byte-code "pDç" [current-prefix-arg] 2)])
(fset 'set-encryption-key #[(key &optional buffer) "¼épèqê \nܽà├─!¬ê ¡â╞╟!)ç" [buffer key buffer-encryption-key message "Key is identical to original, no change." buffer-save-encrypted set-buffer-modified-p t] 2 "\
Set the encryption KEY for BUFFER.
KEY should be a string.
BUFFER should be a buffer or the name of one;
it defaults to the current buffer. If BUFFER is in crypt mode, then it is
also marked as modified, since it needs to be saved with the new key." (byte-code "└ ê┴┬├─ \"!Cç" [barf-if-buffer-read-only read-string-no-echo format "Set encryption key for buffer %s: " buffer-name] 4)])